Read in the spreadsheet made from the Life in the UK handbook (and additional information)
# century = 36525 days
timedat <- read.csv("data/timeline.csv")
timedat %>% as_tibble() %>%
mutate(start = as.Date(as.numeric(start), origin="0000-01-01"),
end = as.Date(as.numeric(end), origin="0000-01-01"),
altStart = as.Date(as.numeric(altStart), origin="0000-01-01"),
altEnd = as.Date(as.numeric(altEnd), origin="0000-01-01")) -> timeline;timeline
## # A tibble: 8 x 10
## event start end group startForHumans endForHumans tooltip
## <chr> <date> <date> <chr> <chr> <chr> <chr>
## 1 Perm… -9700-01-01 -8001-12-31 Earl… 11700 BCE 10000 BCE Perman…
## 2 Hunt… -8000-01-01 -4001-12-31 Earl… 10000 BCE 6000 BCE Hunter…
## 3 Neol… -4500-01-01 -2001-12-31 Earl… 6500 BCE 4001 BCE Neolit…
## 4 Firs… -4000-01-01 -4000-12-31 Earl… 6000 BCE 6000 BCE First …
## 5 Bron… -2000-01-01 -801-12-31 Earl… 4000 BCE 800 BCE Bronze…
## 6 Iron… -800-01-01 -056-12-31 Earl… 800 BCE 56 BCE Iron A…
## 7 Firs… -055-01-01 -054-12-31 Roma… 55 BCE 55 BCE First …
## 8 Seco… 0043-01-01 0043-12-31 Roma… 43 AD 43 AD Second…
## # … with 3 more variables: altStart <date>, altEnd <date>, color <chr>
vistime packagevistime()default plotly visualisation
gg_vistime()static visualisation
hc_vistime()interactive visualisation